Vlastnost Scaled
Otázka od: Lebeda David
25. 11. 2003 8:29
Ahoj,
narazil jsem na problem, s kterym se mi nedari pohnout. Mam
nekolik aplikaci se spoustou formularu. Kazdy form je odvozen od
meho formu, rekneme TMyForm. Vsechny formulare maji nastaveno
Scaled = True, coz je implicitni hodnota. Ja bych nyni rad ve vsech
formech nastavil Scaled na False, abych zkusil, co to udela. Abych
nemusel v object inspectoru rucne menit stovky formularu, chtel
jsem to udelat nejak na urovni TMyForm. Jenze at jsem dal radek
Scaled := False; do konstruktoru nebo do Loaded, at uz pred
inherited nebo za nej, nemelo to zadny vliv. Nabyl jsem dojmu, ze
pri nacitani formu z DFM se nacte tam ulozena hodnota, podle ni se
vytvori formular a pak uz property Scaled na vzhled formulare nema
vliv.
Opravdu neexistuje cesta, jak ve spolecnem predkovi
zaridit, aby se form vytvoril s vypnutym Scaled?
Diky za rady
David Lebeda
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: kexo
25. 11. 2003 10:23
no asi to nie je priamo to co potrebujes, ale problem to vyriesi 
for i := 0 to Application.ComponentCount - 1 do
if (Application.Components[i] is TMyForm) then
(Application.Components[i] as TForm).Scaled := False;
kexo
----- Original Message -----
From: "Lebeda David" <david.lebeda@comarr.cz>
To: <delphi-l@clexpert.cz>
Sent: Tuesday, November 25, 2003 8:15 AM
Subject: Vlastnost Scaled
> Ahoj,
>
> narazil jsem na problem, s kterym se mi nedari pohnout. Mam
> nekolik aplikaci se spoustou formularu. Kazdy form je odvozen od
> meho formu, rekneme TMyForm. Vsechny formulare maji nastaveno
> Scaled = True, coz je implicitni hodnota. Ja bych nyni rad ve vsech
> formech nastavil Scaled na False, abych zkusil, co to udela. Abych
> nemusel v object inspectoru rucne menit stovky formularu, chtel
> jsem to udelat nejak na urovni TMyForm. Jenze at jsem dal radek
> Scaled := False; do konstruktoru nebo do Loaded, at uz pred
> inherited nebo za nej, nemelo to zadny vliv. Nabyl jsem dojmu, ze
> pri nacitani formu z DFM se nacte tam ulozena hodnota, podle ni se
> vytvori formular a pak uz property Scaled na vzhled formulare nema
> vliv.
> Opravdu neexistuje cesta, jak ve spolecnem predkovi
> zaridit, aby se form vytvoril s vypnutym Scaled?
>
> Diky za rady
>
> David Lebeda
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: ludek.paral@quick.cz
25. 11. 2003 11:41
To je divne, mne postaci v OnShow nebo OnCreate nastavit a jiz to beha. Podle
meho se do dfm ukladaji jen zmenene hodnoty.
Jsem take zvedav, kde je problem...
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Lebeda David
25. 11. 2003 13:09
> no asi to nie je priamo to co potrebujes, ale problem to vyriesi
>
> for i := 0 to Application.ComponentCount - 1 do
> if (Application.Components[i] is TMyForm) then
> (Application.Components[i] as TForm).Scaled := False;
Ahoj,
tohle je neco jineho. Ja umim vsem potrebnym formularum nastavit Scaled na
False.
To je OK. Problem je v tom, ze kdyz na formulari v programu zmenim Scaled, tak
se
proste nic nestane - nevede to k prekresleni formulare vcetne jeho zmenseni. I
ze
zdrojaku se mi zda, ze to tak je.
Hodnota Scaled se aplikuje v metode ReadState (tusim) formu a ta se
zrejme vyvola jen pri prvotnim vytvareni obsahu formu. Pak uz Scaled jen
nastavuje
hodnoty do prislusnych promennych, ale usporadani formu se nezmeni.
David Lebeda
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)